(inferior-scheme-mode):

Don't let `comint-prompt-regexp' match more than one line.

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index a4a98aac936ed6c10ea317351fdd22ff0a8dfde0..30510103b7b15d408389e16520cfbca5742caefe 100644 (file)
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -180,7 +180,7 @@ to continue it."
   (interactive)
   (comint-mode)
   ;; Customise in inferior-scheme-mode-hook
-  (setq comint-prompt-regexp "^[^>]*>+ *") ; OK for cscheme, oaklisp, T,...
+  (setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,...
   (scheme-mode-variables)
   (setq major-mode 'inferior-scheme-mode)
   (setq mode-name "Inferior Scheme")